home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / ques_221.zip / SAMPLES.ZIP / DEMOS.ZIP / LABEL.Q-A < prev    next >
Text File  |  1990-10-28  |  764b  |  32 lines
  1. ChangeColor 7 0
  2. ClearScreen
  3.  
  4. :MAIN
  5. Display "Now in procedure MAIN||"
  6. Display "From this procedure other procedures will be called||"
  7. Display "Calling the procedure SUB-1 with a GOSUB command|"
  8. Gosublabel SUB-1
  9. Display "Since we used a gosub, we will return here after the procedure|"
  10. Display "SUB-1 has finished.||"
  11. Display "If you use a GOTO command, you will not return|"
  12. Display "Calling SUB-2 with a GOTO command|"
  13. GotoLabel SUB-2
  14.  
  15. :DUMMY
  16. Display "This procedure will never be entered|"
  17. :
  18.  
  19. :SUB-1
  20. Display "|     This is the procedure SUB-1||"
  21. :
  22.  
  23. :SUB-2
  24. Display "|     This is the procedure SUB-2||"
  25. :
  26.  
  27. Display "|Since SUB-2 was called by a GOTO command it won't return|"
  28.  
  29. Display "|THE END!|"
  30. Display "Press any key:"
  31. GetChar 1
  32.